From: Glenn Morris <rgm@gnu.org>
Date: Fri, 11 Dec 2009 01:20:04 +0000 (+0000)
Subject: (emacs-lisp-mode-map): Standardize the capitalization of some menu entries.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8972
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5a3cd6fe500513c595bdf47224b570bb680114b7;p=emacs.git

(emacs-lisp-mode-map): Standardize the capitalization of some menu entries.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6405a5816d..71428a357bc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-11  Glenn Morris  <rgm@gnu.org>
+
+	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Standardize the
+	capitalization of some menu entries.
+
 2009-12-10  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* whitespace.el (whitespace-display-char-on): Asure
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 7e5d89c66dc..2e86c67702b 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -296,17 +296,17 @@ font-lock keywords will not be case sensitive."
 		  :help ,(purecopy "Construct a regexp interactively")))
     (define-key menu-map [tracing] (cons (purecopy "Tracing") tracing-map))
     (define-key tracing-map [tr-a]
-      `(menu-item ,(purecopy "Untrace all") untrace-all
+      `(menu-item ,(purecopy "Untrace All") untrace-all
 		  :help ,(purecopy "Untrace all currently traced functions")))
     (define-key tracing-map [tr-uf]
       `(menu-item ,(purecopy "Untrace function...") untrace-function
 		  :help ,(purecopy "Untrace function, and possibly activate all remaining advice")))
     (define-key tracing-map [tr-sep] menu-bar-separator)
     (define-key tracing-map [tr-q]
-      `(menu-item ,(purecopy "Trace function quietly...") trace-function-background
+      `(menu-item ,(purecopy "Trace Function Quietly...") trace-function-background
 		  :help ,(purecopy "Trace the function with trace output going quietly to a buffer")))
     (define-key tracing-map [tr-f]
-      `(menu-item ,(purecopy "Trace function...") trace-function
+      `(menu-item ,(purecopy "Trace Function...") trace-function
 		  :help ,(purecopy "Trace the function given as an argument")))
     (define-key menu-map [profiling] (cons (purecopy "Profiling") prof-map))
     (define-key prof-map [prof-restall]
@@ -351,16 +351,16 @@ font-lock keywords will not be case sensitive."
 		  :keys ,(purecopy "C-u C-M-x")))
     (define-key menu-map [separator-byte] menu-bar-separator)
     (define-key menu-map [disas]
-      `(menu-item ,(purecopy "Disassemble byte compiled object...") disassemble
+      `(menu-item ,(purecopy "Disassemble Byte Compiled Object...") disassemble
 		  :help ,(purecopy "Print disassembled code for OBJECT in a buffer")))
     (define-key menu-map [byte-recompile]
       `(menu-item ,(purecopy "Byte-recompile Directory...") byte-recompile-directory
 		  :help ,(purecopy "Recompile every `.el' file in DIRECTORY that needs recompilation")))
     (define-key menu-map [emacs-byte-compile-and-load]
-      `(menu-item ,(purecopy "Byte-compile And Load") emacs-lisp-byte-compile-and-load
+      `(menu-item ,(purecopy "Byte-compile and Load") emacs-lisp-byte-compile-and-load
 		  :help ,(purecopy "Byte-compile the current file (if it has changed), then load compiled code")))
     (define-key menu-map [byte-compile]
-      `(menu-item ,(purecopy "Byte-compile This File") emacs-lisp-byte-compile
+      `(menu-item ,(purecopy "Byte-compile this File") emacs-lisp-byte-compile
 		  :help ,(purecopy "Byte compile the file containing the current buffer")))
     (define-key menu-map [separator-eval] menu-bar-separator)
     (define-key menu-map [ielm]